home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / testfiles / TestScreen < prev    next >
Text File  |  2002-10-27  |  359b  |  19 lines
  1. scr <- Screen new
  2.  
  3. scr setScreenModeID: 16r40D20001
  4. scr open: 'TestScreen'
  5.  
  6. scr pushScreenDown: 50
  7. scr displayBeep
  8. scr screenToBack
  9. scr pullScreenUp: -50
  10. scr screenToFront
  11.  
  12. depth <- scr getDepth
  13. vmode <- scr getViewMode
  14.  
  15. ( 'Screen depth is ', depth asString) print
  16. ( 'Screen ViewMode is ', vmode asHex) print
  17.  
  18. ( 'enter "scr close" to kill TestScreen' ) print
  19.